#-----------------------------------------------------------#
#  죄와벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 복권 Version 1.1
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 복권 처리
# 배경그림
$wall="casino";
$npc="casino_a";
sub lotto{

	if($tm==90){
		if($cmd<=0){
			$log .= "다시 찾아주세요.<br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($cmd==1){
			$S = 500;
			if($S < $gold){
				$gold -= $S;
				$log .= "5백 G를 지불했다…<br>맞았는지∼？<br>\n";
				$tm=95;

				$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
				$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
				$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

				# 행동 세션 가산
				$act_cnt++;

			}else{
				$log .= "돈이 부족해!  타타″는 꿈도 살 수 없는 이 현실···<br>\n";
				$tm = $cmd = 0;
				&shop_menu;
			}
		}
	}elsif($tm==95){ # 복권 처리

		my $dh =int(rand(900)) ;
		if($dh == 0){
			$gold += 100000;
			$log .="트″트″휴휴하˚후하˚후 ♪<br>일등 상이 맞았다!!!<br>$nm 는 \10\만\G를 획득했다! <br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($dh > 0 && $dh <= 2){
			$gold += 50000;
			$log .="트″트″휴휴하˚후하˚후 ♪<br>이등 상이 맞았다!!!<br>$nm 는 5만 G를 획득했다! <br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($dh > 10 && $dh <= 20){
			$gold += 10000;
			$log .="트″트″휴휴하˚후하˚후 ♪<br>참등 상이 맞았다!!!<br>$nm 는 일만 G를 획득했다! <br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($dh > 20 && $dh <= 60){
			$gold += 1000;
			$log .="트″트″휴휴하˚후하˚후 ♪<br>4등 상이 맞았다!!!<br>$nm 는 일천 G를 획득했다! <br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($dh == 447){
			$dh =int(rand(2)) ;
			if($dh){
				$hp = $max_hp;
				$log .="트″트″휴휴하˚후하˚후 ♪<br>행운상이 맞았다!!!<br>$nm 는 HP 가 전회복했다! <br>\n";
			}else{
				$mp = $max_mp;
				$log .="트″트″휴휴하˚후하˚후 ♪<br>행운상이 맞았다!!!<br>$nm 는 MP 가 전회복했다! <br>\n";
			}
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($dh == 448){
			$dh =int(rand(2)) ;
			if($dh){
				$hp = int($hp/2);
				$log .="카″!!　　불행상이 맞아 버렸다···. <br>$nm 는 HP 가 반이 되었다···. <br>\n";
			}else{
				$mp = int($mp/2);
				$log .="카″!!　　불행상이 맞아 버렸다···. <br>$nm 는 MP 가 반이 되었다···. <br>\n";
			}
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($dh == 449){#$dh == 449
			$dh =int(rand(5)) ;
			if($dh==0){
				$log .="오와!!　분별없게 맞지 않는 $dg_data[1][1]이 맞았다!!<br><br>장비 하는 경우, 현재 소지하고 있는 무기는 파기됩니다. <br>어떻게 합니까? <br>\n";
				$tm = 100;

				$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
				$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
				$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
				$log2 .=qq|<select name=cmd size=1>\n|;
				$log2 .=qq|<option value="1">받는</option><option value="0">필요없는</option>\n|;
				$log2 .=qq|</select><br>\n|;
				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

			}elsif($dh==1){
				$log .="오와!!　분별없게 맞지 않는 $df_data[1][1]이 맞았다!!<br><br>장비 하는 경우, 현재 소지하고 있는 방어용 기구는 파기됩니다. <br>어떻게 합니까? <br>\n";
				$tm = 115;

				$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
				$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
				$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
				$log2 .=qq|<select name=cmd size=1>\n|;
				$log2 .=qq|<option value="1">받는</option><option value="0">필요없는</option>\n|;
				$log2 .=qq|</select><br>\n|;
				$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

			}else{
				$log .= "빗나갔다···　또 도전해 주세요 네♪<br>\n";
				$tm = $cmd = 0;
				&shop_menu;
			}
		}else{
			$log .= "빗나갔다···　또 도전해 주세요 네♪<br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}

	}elsif($tm==100){#복권죄벌상처리
		if($cmd){
			$log .="$nm 는 <b>$dg_data[1][1]</b>을 손에 넣었다!!<br>\n";
			$dg_a = 1;
			$dg_cnt = $dg_data[1][3];
		}else{
			$log .="$nm 는 눈물을 그리워해 단념한······\n";
		}
		$tm = $cmd = 0;
		&shop_menu;
	}elsif($tm==115){#복권죄벌상처리
		if($cmd){
			$log .="$nm 는 <b>$df_data[1][1]</b>을 손에 넣었다!!<br>\n";
			$df_a = 1;
			$df_cnt = $df_data[1][3];
		}else{
			$log .="$nm 는 눈물을 그리워해 단념한······\n";
		}
		$tm = $cmd = 0;
		&shop_menu;
	}
}





1;
